home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmigaPlus / Tools / Development / envCPP31 / c++ / rexx / else.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2002-01-01  |  874 b   |  47 lines
  1.  
  2. /* rexx macro */
  3.  
  4. options results                             /* enable return codes     */
  5.  
  6. if (left(address(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  7.  
  8.     address 'GOLDED.1'
  9.  
  10. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  11.  
  12. if (RC ~= 0) then
  13.  
  14.     exit
  15.  
  16. options failat 6                            /* ignore warnings         */
  17.  
  18. signal on syntax                            /* ensure clean exit       */
  19.  
  20. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  21.  
  22. 'INSERT LINE'
  23. 'PING SLOT 0'
  24. 'TEXT STAY T="else"'
  25. 'DOWN'
  26. 'INSERT LINE'
  27. 'TEXT STAY T="{"'
  28. 'DOWN'
  29. 'INSERT LINE'
  30. 'TEXT STAY T="}"'
  31. 'INSERT LINE'
  32. 'TAB'
  33.  
  34. /* ---------------------------- END OF YOUR CODE ----------------------- */
  35.  
  36. 'UNLOCK' /* VERY important: unlock GUI */
  37.  
  38. exit
  39.  
  40. SYNTAX:
  41.  
  42. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  43.  
  44. 'UNLOCK'
  45.  
  46. exit
  47.